-- card: 13242 from stack: in.03 еее
-- bmap block id: 15866
-- flags: 0000
-- background id: 2766
-- name: 
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,sDoorOpen,eDoorOpen,ladderHole,chase,blasting
  if direction = "south" then
    if sDoorOpen then
      go to card id 33443
      exit move
    else
      beep
      put "The door is locked!" into field 3
      exit move
    end if
  end if
  if direction = "east" then
    if eDoorOpen then
      if ladderHole then
        go to card id 30264
        exit move
      else
        go to card id 6984
        exit move
      end if
    else
      beep
      put "The door is locked!" into field 3
      exit move
    end if
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried,sDoorOpen,eDoorOpen,causeOfDeath,demonDead
  global holdID,prevID
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="key" then
    put "Both doors are now unlocked and you may pass through." into field 3
    put true into sDoorOpen
    put true into eDoorOpen
    exit use
  end if
  if obj="knife" then
    put "demon1" into causeOfDeath
    visual effect dissolve slowly to black
    go to card id 3409
    exit use
  end if
  if obj="gem" then
    put prevID into holdID
    visual effect iris open very fast to white
    visual effect iris open to white
    visual effect dissolve
    go to card id 13815
    put true into demonDead
    put "Brilliant move!  The flash from the gem of light blasts the demon, leaving only a black sooty residue." into field 3
    put holdID into prevID
    show card button id 19 of card id 7465
    exit use
  end if
  -- update carried if use results in loss of object
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=93 top=230 right=266 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=93 top=195 right=231 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=24 top=206 right=242 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=73 top=108 right=144 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=128 top=130 right=166 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=204 top=114 right=218 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID,causeOfDeath
  if takeFlag then
    put "demon2" into causeOfDeath
    go to card id 3409
  else
    put "A vile Demon of Darkness.  Known to be very unfriendly types." into field 3
    put false into examFlag
  end if
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=153 top=59 right=101 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,sDoorOpen,demonDead,takeFlag
  if examFlag then
    put "A barred door leading south into the great chamber." into field 3
    if sDoorOpen
    then put "  The door is unlocked!" after field 3
  else put "  The door is locked!" after field 3
  put false into examFlag
else
  if takeFlag then
    put "You can't take the door." into field 3
    put false into takeFlag
  else
    put "south" into direction
    send move to card id cardID
  end if
end if
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=27 top=89 right=146 bottom=56
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,eDoorOpen,demonDead,takeFlag
  if examFlag then
    put "A barred door leading east into the round room." into field 3
    if eDoorOpen
    then put "  The door is unlocked!" after field 3
  else put "  The door is locked!" after field 3
  put false into examFlag
else
  if takeFlag then
    put "You can't take the door." into field 3
    put false into takeFlag
  else
    put "east" into direction
    send move to card id cardID
  end if
end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=131 right=168 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fake orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID,causeOfDeath
  if takeFlag = true then
    put "orb1" into causeOfDeath
    go to card id 3409
    exit mouseUp
  else put "The crystal orb of power!" into field 3
  put false into examFlag
end mouseUp



-- part contents for background part 25
----- text -----
Treasure Room
(looking south)

-- part contents for background part 24
----- text -----
You are in the treasure room.  Exits are south and east:  Both doorways have doors made of massive iron bars.  A nasty looking creature, with skin so black it seems to reflect no light at all, is sitting here, holding a crystal orb.  It hisses in a voice almost a whisper,
"I am a Demon of Darkness.  Leave now or I will destroy you!"


-- part contents for background part 36
----- text -----
1